home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / RCSC.ZIP / PACKAGES / AWK320.ZIP / EURASIA.AWK < prev    next >
Text File  |  1990-02-08  |  344b  |  12 lines
  1. # accumulate the populations of Asia and Europe
  2. # print these two totals at the end
  3. # AKW p51
  4.  
  5. /Asia/   { pop["Asia"] += $3 }
  6. /Europe/ { pop["Europe"] += $3 }
  7. END      { print "Asian population is",
  8.                pop["Asia"], "million."
  9.            print "European population is",
  10.                pop["Europe"], "million."
  11.          }
  12.